home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 29 / 029.d81 / speed read boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  59 lines
  1. 12 poke53280,5:poke53281,6
  2. 15 gosub1000
  3. 20 print""spc(11)"[211]peed [210]eading [196]emo"
  4. 30 print""spc(8)"[215]ritten by [205]al [199]reenberg"
  5. 40 print"[201]nsert[160][211][201][196][197][160]2 of the [194][207][206][213][211] disk into"
  6. 42 print"your drive and press a key."
  7. 44 printspc(15)"-- [207][210] --"
  8. 50 print"<[208]ress '[209]' to return to [204][207][193][196][211][212][193][210]>"
  9. 60 print"[212]his [196]emo is copyrighted by"
  10. 62 print"[145][204][211][210] [204]earning [193]ssociates."
  11. 65 :
  12. 70 poke198,0:wait198,1:geta$
  13. 75 ifa$="q"then60000
  14. 76 gosub10000
  15. 77 print"[147]"spc(7)"[194]ooting [211]peed [210]eading [196]emo"
  16. 78 f$="boot"
  17. 80 print"loadf$,8,1":poke631,13:poke198,1:end
  18. 1000 :
  19. 1010 print"[147][156]****************************************";:forx=1to23
  20. 1012 print"*"spc(38)"*";:next
  21. 1014 print"***************************************";:poke56295,peek(55296)
  22. 1016 poke2023,42
  23. 1020 return
  24. 10000 :
  25. 10010 gosub59000
  26. 10020 ifn$="demo srp[160][160]"thenreturn
  27. 10030 print"[147]     [211]peed [210]eading [196]emo not found..."
  28. 10040 print"  [208]lease insert that disk to try again."
  29. 10045 print"               -- [207][210][160]--"
  30. 10050 print"   <[208]ress '[209]' to return to [204][207][193][196][211][212][193][210]>"
  31. 10060 poke198,0:wait198,1:geta$
  32. 10070 ifa$="q"then60000
  33. 10080 goto10000
  34. 10090 :
  35. 59000 :
  36. 59010 open15,8,15,"i0"
  37. 59020 open8,8,8,"#"
  38. 59030 print#15,"ua:8 0 18 0"
  39. 59040 print#15,"b-p:8 144"
  40. 59050 get#8,a$,b$,c$,d$,e$,f$,g$,h$,i$,j$
  41. 59055 n$=""
  42. 59056 n$=a$+b$+c$+d$+e$+f$+g$+h$+i$+j$
  43. 59060 close8:close15
  44. 59070 return
  45. 60000 :
  46. 60010 open15,8,15,"r0:star=star":input#15,er:close15
  47. 60020 ifer<>63then61000
  48. 60030 print"[147]"spc(12)"[199]oing to [204][207][193][196][211][212][193][210]..."
  49. 60040 f$="hello connect"
  50. 60050 print"loadf$,8":print"run":poke631,13:poke632,13:poke198,2:end
  51. 60060 :
  52. 61000 :
  53. 61010 gosub59000
  54. 61020 ifn$="loadstar #"thenreturn
  55. 61030 print"[147]         [204][207][193][196][211][212][193][210] not found..."
  56. 61040 print"  [208]lease insert that disk to try again."
  57. 61050 print"   [208]ress any key when you are ready."
  58. 61060 poke198,0:wait198,1:poke198,0:goto61000
  59.